Top 10k strings from MicroHobby Semanal - Issue 061-064 (1986)(Hobby Press)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
10 ;" "
3 ;"ERROR EN LOS DATOS, REPITA":
3 ;" PARE LA CINTA ":
2 num1=num2:
2 dzj+dzi*(menu1=1
2 b,c,d,e,f,g,h,i,j,k,l,m,n,o,p:
2 ;"EL LABERINTO DE LEMNOS"
2 ;" ";
2 (NPROG/DOS)
2 "22",CERO;B$:
1 z(i,j)+" ")(1
1 z(dzi,dzj):
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz 8888888888888888888888888888888888888888888888888888888888888888
1 x(p);"x";p:
1 x(dzj+dzi*(menu1=1
1 sig+d$+"*"+
1 reves=1000
1 raro=1.23456789
1 organo
1 orden=orden-(d(j,j)=0
1 orden=dzmin:
1 nu2=d(j,j):
1 nu1=d(i,j):
1 micro
1 mcd=num2*(num2>1
1 ense=(n$="s"):
1 dzmin=dzi:
1 detd=d(j,j)*detd:
1 ddj=dzi+dzj:
1 d(o,p)+" ")(1
1 d(i,j)=z(i,j):
1 d(i,dzj+i)=1
1 d(fi2,k)=d(ddi,k):
1 d(fi1,k)=d(fi2,k):
1 d(fi1,k)=d(fi1,k)*num1+d(fi2,k)*num2:
1 d(ddi,k)=d(fi1,k):
1 d(ddi,ddj)
1 d$=d$+"/"+
1 cont=cont+1
1 a$=" "+a$+" "
1 a$,b$,c$,d$,g$,d$,c$,b$,a$,e$,d$,c$,a$,f$,e$,b$:
1 UNO;"PONGA EN MARCHA LA CINTA";
1 TZX por Manuel Gomez Amate
1 SUBRUTINA VISUALIZAR LABERINTO AL REVES
1 SUBRUTINA VISUALIZAR LABERINTO AL DERECHO
1 SUBRUTINA HIPERESPACIO
1 SUBRUTINA FINAL
1 SUBRUTINA BAJAR
1 SPACE-UNO,X1
1 SPACE-UNO,CERO:
1 SPACE,LINEA:
1 SPACE,CERO:
1 R E V E S
1 PROGRAMA PRINCIPAL
1 PRESENTACION
1 PRESENTAC.
1 Organo
1 ORDEN=DZJ-1
1 Microcat2 T
1 Microcat1 T
1 Microcat
1 Matrices _
1 Laberinto
1 INICIALIZAR VARIABLES
1 I,CERO;,,:
1 Hobby Press
1 DOS=UNO+UNO
1 D(DZJ,DZJ)
1 Castellano
1 Cargador U
1 Cara a
1 CONTROL PZAS(M3)SEGUN(M
1 CINTA 16 CARA A
1 CERO;" ";
1 C$=" Por favor, elija un programa "
1 B$=" "
1 Alger
1 A(M3)=P(M3)
1 ? "''"
1 ="L")-(378
1 ;C$;",MUEVE PZA.";M1;" (CASILLA?)"
1 ;C$;",MUEVE DE LA CASILLA N.":
1 ;C$;",MUEVA A LA CASILLA N. ":
1 ;C$;", MUEVE PZA. DE LA LINEA":
1 ;"z(";i;",";j;")=":
1 ;"numero= ";
1 ;"det es igual al producto de los elementos de la diagonal porque esta matriz es triangular"
1 ;"Tu mision consiste en"''"conseguir salir del"''"laberinto."''"Para ello dispones de"''"3 saltos hiperespacia-"''"les y de las teclas:"''"O-izquierda"''"P-derecha"''"F-bajar"''"0-salto hiperespacial"
1 ;"Te atreverias ha atravesarlo al "''"
1 ;"SPACE para volver al BASIC"
1 ;"SOLUCION UNICA":
1 ;"SALTOS";
1 ;"SALTOS ";sal:
1 ;"Quieres ir viendo la resolucion en la pantalla ? (s/n)"
1 ;"Queda DET=";sig;d$;"* det"
1 ;"Para la utilizacion correcta de los programas Microcat seaconseja la consulta la rev.num.","61"
1 ;"PZA.A COMER A ";Y$;",CASILLA?":
1 ;"PUNTOS TOTALES ";pis*1000
1 ;"PULSE CUALQUIER TECLA."
1 ;"PISOS ";pis:
1 ;"PARA LA CINTA":
1 ;"Otra partida ? s/n"
1 ;"ORDEN=";ORDEN;": PUES SOLO HAY ";ORDEN;" FILAS INDEPENDIENTES":
1 ;"NOMBRE JUGADOR N.2 (8 c.m.)":
1 ;"NOMBRE JUGADOR N.1 (8 c.m.)":
1 ;"NO HAY SOLUCION":
1 ;"NO ES INVERTIBLE PORQUE SU DETERMINANTE ES 0.":
1 ;"NO ES INVERTIBLE PORQUE ";a$:
1 ;"MCD=";mcd;" ":
1 ;"LABERINTO DE LEMNOS"'';
1 ;"LA MATRZ TIENE QUE SER CUADRADA":
1 ;"Hallo el M
1 ;"HAY INFINITAS SOLUCIONES":
1 ;"HA GANADO ";C$:
1 ;"ERROR EN LOS DATOS, REPITE":
1 ;"ENTER para salir"'
1 ;"ENTENDIDO ?":
1 ;"ENHORABUENA,HAS CONSEGUIDO SALIR"''" DEL ";
1 ;"Dejo la fila ";
1 ;"DET=";sig;d$;"*";detd;"=";
1 ;"Cambio la fila ";
1 ;"CORRECTO"
1 ;", TIENE UNA LINEA":
1 ;" para no tener 0 en la diagonal.";:
1 ;" con la ";
1 ;" PULSA UNA TECLA PARA COMENZAR ":
1 ;" =";num2;"* ";
1 ;" +";num1;"* ";
1 ;" "
1 .C.D. de los numeros que me des."
1 ,i);"=";d(i,dzj)/d(i,i):
1 ,D.L.: M-36598-84
1 *** CINTA-MICROHOBBY ***
1 )+(menu1=5
1 )*(menu1<8
1 (num1/num2)*num2-num1):
1 (nu2/mcd):
1 (nu2*nu1)*
1 (nu1/mcd):
1 (n$="s")+(n$="n")=1
1 (dzj-dzi-1
1 (dzi=raro)+(dzi
1 (VALOR)<"A"
1 "x";i;"=";d(i,dzj);"/";d(i
1 "numero de incognitas= ";dzj:
1 "Se puede pulsar mas de una tecla a la vez."
1 "Queda DET=";sig;d$;"* det"
1 "Numero de filas= ";dzi
1 "Numero de ecuaciones= ";dzi
1 "Numero de columnas= ";dzj:
1 "MicroHobby Semanal numeros 61 a 64
1 "I(";i;",";j;")=";d(i,dzj+j);"/";d(i,i);"=";d(i,dzj+j)/d(i,i):
1 "Este programa simula a un organo de escala natural."
1 "E","S","R","D","F","Y","G","U","H","I","J"
1 "E","L"," ","L","A","B","E","R","I","N","T","O"," ","D","E"," ","L","E","M","N","O","S"
1 "D-Microcat","E-Alger","F-Combinato","G-Pantallas"
1 "Cada vez que pulse una tecla, esta cambiara de color."
1 "Buenas melodias."
1 "A-Laberinto","B-Organo","C-Matrices"
1 "64"+NPROG)
1 "5";"cara: ";
1 "5";"Programa: ";
1 "5";"Programa inexistente":
1 "5";"'R' Vuelve al menu"
1 "5";"'L' Carga el programa";
1 "32"-I;C$(
1 "22",CERO;C$(I
1 "22",CERO;B$
1 "22",CERO;
1 " MENU ","1- MATRIZ INVERSA","2- RESOLVER ECUACIONES","3- HALLAR DETERMINANTES","4- MAX. COMUN DENOMINADOR","5- ORDEN DE UNA MATRIZ","6- INPUT MATRIZ","7- INPUT ECUACIONES"," PULSA SU TECLA "
1 VARIABLE DE ONTROL
1 NOMBRE JUGADORES
1 JUGANDO EN EL TABLERO
1 IMPR. PZAS. ENTRADA (M)
1 FIN ** ALQUER **
1 DIBUJO TABLERO
1 CONTROL PZAS EN LINEA
1 CONTROL PZAS (M) (M3)
1 CONTROL ENTRADA AL JUEGO
1 CONTR.PZA. ENTRADA (M)
1 Amando de la Puente 1985"
1 Amando de la Puente
1 *** HASTA LA PROXIMA ***
1 Enrique Pascual Lopez
1 PULSA SU TECLA A